S10 \m"m=Request(100,100,'Enter Message To Current User','',,'CANCEL','BAUD');IF m='' THEN RETURN;o=GETCLIP('BBS_MESSAGE');IF o~='' THEN o=o'0D0A'x;CALL SETCLIP('BBS_MESSAGE',o||m)"
A1 \m"DO i=0 TO 7;Send '\S'i'-'WORD('000 FEF 79F FAC D7F DD7 CCF 7FA',i+1);END /* un-dim colors */"